Type employee    fname as string    lname as string    hired as date    file as stringend type    Sub Main()	dim emp as employee	emp.fname = "Jose L."	emp.lname = "Cuevas"	emp.file = "hello"	msgbox(emp.file)	msgbox("Jose L. Cuevas=" & emp.fname & " " & emp.lname)end sub